﻿Public Class DepartamentoFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta del Departamento")
        Me.codigo = Utils.Enumeradores.Excepeciones.DepartamentoFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta del Departamento"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class DepartamentoFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización del Departamento")
        Me.codigo = Utils.Enumeradores.Excepeciones.DepartamentoFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización del Departamento"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class DepartamentoFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja del Departamento")
        Me.codigo = Utils.Enumeradores.Excepeciones.DepartamentoFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja del Departamento"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class DepartamentoFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda del Departamento")
        Me.codigo = Utils.Enumeradores.Excepeciones.DepartamentoFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda del Departamento"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class DepartamentoFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Departamentos")
        Me.codigo = Utils.Enumeradores.Excepeciones.DepartamentoFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Departamentos"
        Me.innerException2 = innerException
    End Sub
End Class
